14350 Y1$="TEXT ON PRINTER":REM******88
14351 OPEN99.230:Y1=6:IFY=1THENY$=CHR$(15)+Y$+CHR$(13)+CHR$(14)
14352 IFY=2THENY$=CHR$(27)+CHR$(14)+Y$+CHR$(13)+CHR$(27)+CHR$(15):Y1=3
14353 IFY=3THENY$=" "
14354 PRINT#99.SPC(Y1):Y$:CLOSE99:RETURN .
14400 Y1$="OUTPUT ON PRINTER“:REM****89
14401 OPEN99.230:PRINT#99.SPC(6):Y$:SPC(50—LEN(Y$)):Y:CLOSE99:RETURN
14450 Y1$="LIMIT-COMP.PRINTER":REM***90
14451 IFY<Y1ORY>Y2THEN14453
14452 EUTD14400
14453 OPEN99.230:PRINT#99.SPC(6):Y$:SPC(54-LEN(Y$)):"* ":Y:CLOSE99:RETURN
14500 Y1$="LIMIT—COMP.SCREEN":REM****91
14501 IFY<Y1ORY>Y2THEN14503
14502 PRINTY$:TAB(33)Y:RETURN
14503 PRINTY$:TAB(28)“***“:TAB(33)Y:RETURN
14550 Y1$="DISPL.FREQ.RESP.":REM*****92
14551 Y8=.5:Y5=99:Y6=-99:FORY1=1TOY9:IFY5>Y(Y1)THENY5=Y(Y1)
14552 IFY(Y1)>Y6THENY6=Y(Y1)
14553 NEXT:Y6=Y6-Y5:IFY6>2THENY8=1:IFY6>4THENY0=2:IFY6>8THENY8=5
14554 IFY6>20THENY8=10
14555 Y7=Y8*INT(Y5/Y8)
14556 PRINT" DB"
14557 FORY1=1TO5:PRINT" I^^I^^I^^I":NEXT
14558 PRINT"     I---------------------------------^"
14559 PRINT"KHZ  0.1     0.3      1       3      10
14560 PRINT"^^":Y7+5*Y8:PRINT“^^^“:Y7+4*Y8:PRINT"^^^":Y7+3*Y8
14561 PRINT"^^^":Y7+2*Y8:PRINT"^^^":Y7+Y8:PRINT"^^^“:Y7
14562 FORY1=1TO9:PRINT“^"::FORY2=1TO21-INT((Y(Y1)-Y7)*4/Y8+.5):PRINT"^"I
14563 NEXTY2:PRINTTAB(22+INT(.5+16*LDG(X(20+Y1))/LOG(10)))"*"NEXTY1:RETURN
14600 Y1$="HARD-COPY":REM************93
14601 OPEN99.230:PRINT#99.CHR$(30}:CLOSE99:SYS37906
14603 OPEN99.230:RRINT#99.CHR$(27):CHR$(10):CLOSE99
14605 OPEN99.230:PRINT#99.CHR$(31)::PRINT#99:CLOSE99:RETURN
14650 Y1$=“—-------------"REM*******94
14651 RETURN
14700 Y1$=“--------------"REM*******95
14701 RETURN
14750 Y1$="--------------"REM*******96
14751 RETURN
14800 Y1$="--------------"REM*******97
14801 RETURN
14850 Y1$="--------------"REM*******98
14851 RETURN
14900 Y1$="--------------"REM*******99
14901 RETURN
14950 REM*****ERROR—MESSAGE*********100
14951 PRINT:POKE158;0
14952 PRINT"^ERROR AT:":Y1$Y:" FROM R=":R:HOLD300
14953 PRINT'*^^ERROR AT:":Y1$:" FROM R=":R:HOLD300
14954 GETY$:IFY$=""THEN14952
14955 PRINT"^":SPC(40):"^^":Y2$="ERROR“
14960 PRINT:SYS(903):RETURN
16000 IECINSMFP.Y5$:RETURN
16010 IECOUTSMFP.Y5$:RETURN
READY.